-- background: 29178 from stack: in.4
-- bmap block id: 29202
-- flags: 4000
-- background id: 0
-- name: Calendar
----- HyperTalk script -----
on closeCard
  hide bkgnd button "Bracket"
end closeCard

on bracketWeek myDate
  --assume we are on the right card
  convert myDate to dateItems
  put item 2 of myDate into it
  if it > 6 then subtract 6 from it
  put "Month" & it into myField
  put ((item 3 of myDate) + 6 - (item 7 of myDate)) DIV 7 into it
  put loc of field myfield into newLoc
  put item 2 of rect of field myField into item 2 of newLoc
  add (it * the textHeight of field myField) + 7 to item 2 of newLoc
  show bkgnd button "bracket" at newLoc
end bracketWeek

on enterKey
  set hilite of background button ID 63 to true
  set hilite of background button ID 63 to false
  visual effect iris close
  pop card
end enterKey


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=12 top=59 right=85 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Month1Name


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=408 top=59 right=84 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Month4name


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=143 right=168 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Month2Name


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=12 top=227 right=253 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Month3Name


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=408 top=143 right=169 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Month5Name


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=408 top=227 right=253 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Month6Name


-- part 57 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=281 top=104 right=117 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bracket
----- HyperTalk script -----
on mouseUp
  --should be behind all fields, but just in case
  hide bkgnd button "bracket"
  click at the loc of bkgnd button "bracket"
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=462 top=25 right=60 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "home"
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=310 right=337 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp


-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=211 top=310 right=338 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 54 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=9 top=25 right=58 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Year


-- part 55 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=101 top=64 right=143 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Month1


-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=101 top=148 right=227 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Month2


-- part 58 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=101 top=232 right=311 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Month3


-- part 59 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=281 top=64 right=143 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Month4


-- part 60 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=281 top=148 right=227 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Month5


-- part 61 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=281 top=232 right=311 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Month6


-- part 63 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=440 top=309 right=331 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp